object AddressForm: TAddressForm Left = 16 Top = 65 HelpContext = 180 BorderStyle = bsDialog Caption = 'Address Book' ClientHeight = 397 ClientWidth = 630 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] FormStyle = fsMDIChild HelpFile = 'netmail.hlp' Position = poScreenCenter Visible = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 630 Height = 31 Align = alTop BevelOuter = bvNone TabOrder = 0 object SBOpengroup: TSpeedButton Left = 92 Top = 5 Width = 122 Height = 24 Hint = 'Open or add new mailing list' Caption = 'Open/Add New List' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8 B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8 B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB 0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000 55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05 55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05 55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555 5555575FFF755555555557000075555555555577775555555555} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SBOpengroupClick end object SBSavegroup: TSpeedButton Left = 281 Top = 5 Width = 88 Height = 24 Hint = 'You have to select email address before list saving.'#13#10'Use "Selec' + 't Email" button.' Caption = 'Save List As' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SBSavegroupClick end object SBEdit: TSpeedButton Left = 214 Top = 5 Width = 66 Height = 24 Hint = 'Edit, Rename Mailing List' Caption = 'Edit List' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SBEditClick end object SBDubleA: TSpeedButton Left = 369 Top = 5 Width = 140 Height = 24 Caption = 'Remove duplicate email' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000 00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0 00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF 0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF 0033333337FFFFFF773333333000000003333333377777777333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SBDubleAClick end object SpeedButton5: TSpeedButton Left = 510 Top = 5 Width = 57 Height = 24 Caption = 'Import' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800 F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0 F033777777777337F73309999990FFF0033377777777FFF77333099999000000 3333777777777777333333399033333333333337773333333333333903333333 3333333773333333333333303333333333333337333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton7: TSpeedButton Left = 441 Top = -12 Width = 78 Height = 24 Caption = 'Report' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000 00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0 00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF 0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF 0033333337FFFFFF773333333000000003333333377777777333} NumGlyphs = 2 ParentFont = False Visible = False OnClick = SBDubleAClick end object Label6: TLabel Left = 8 Top = 10 Width = 76 Height = 13 Caption = 'Mailing list ->' Visible = False end object BitBSave: TSpeedButton Left = 5 Top = 5 Width = 88 Height = 24 Hint = 'Select mailing list for the message'#13#10'and back to the message for' + 'm' Caption = 'Select list' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False OnClick = BitBSaveClick end object Panel4: TPanel Left = 563 Top = 0 Width = 67 Height = 31 Align = alRight BevelOuter = bvNone TabOrder = 0 object BitBtn2: TExplorerButton Left = 2 Top = 4 Width = 65 Height = 26 NoFocusBitmap.Data = { 96010000424D9601000000000000760000002800000014000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007777777777777777777700007777777777777777777700007777 7777777777777777000077777777777777777777000000007EEEEEEEEEEE0000 0000777076666666666008770000777076666666666008770000777076666666 666008770000777076B666666660087700007770766666666660087700007770 76B66666666008770000777076B66666666008770000777076B6666666600877 0000777076666666666008770000777076666666666008770000777076666666 6660087700007770766666666660087700007770766666666660087700007770 7666666666600877000077707666666666600877000077707777777777770877 0000777000000000000008770000777777777777777777770000} Bitmap.Data = { 96010000424D9601000000000000760000002800000016000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777770007007777777777777777706607007777 7777777777770666070077777777777777706666070000007777777777066666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770 EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770 EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877 7700777000000000000007777700777777777777777777777700} Caption = 'Close' DisabledBitmap.Data = { 96010000424D9601000000000000760000002800000016000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777770007007777777777777777706607007777 7777777777770666070077777777777777706666070000007777777777066666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770 EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770 EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877 7700777000000000000007777700777777777777777777777700} Layout = blBitmapLeft Options = [boMonoDisplay, boPopupMark, boShowBevel] Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClick = BitBtn2Click ParentFont = False IBitmap = { 424D560A00000000000036000000280000001F0000001B000000010018000000 0000200A0000000000000000000000000000000000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF000000BFBFBF BFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000 BFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF 000000BFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFF FFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBF00000000 0000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7FFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000FFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000 FFFFFFFFFFFFFFFFFF000000000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7FFFFFFFFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000 BFBFBFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000 000000BFBFBFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000000000000000000000000000000000000000000000000000 000000000000BFBFBF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000000000000000000000000000000000000000000000000000 000000000000000000000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF000000} end end end object Panel2: TPanel Left = 0 Top = 31 Width = 630 Height = 82 Align = alTop BevelOuter = bvNone TabOrder = 1 object Bevel1: TBevel Left = 0 Top = 78 Width = 630 Height = 4 Align = alBottom Style = bsRaised end object SpeedButton1: TSpeedButton Left = 3 Top = 28 Width = 88 Height = 24 Hint = 'Table/Form ' Caption = 'Table/Form' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 66010000424D6601000000000000760000002800000013000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22 22E22EF22F222FE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0 0000EEEEEEEEEEFFFFFFFFE00000EE222E222EF222222FE00000EEEEEEEEEEFF FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22 222EEEF2222FEFE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0 0000EEEEEEEEEEFFFFFFFFE00000EEE22E22EEF222F22FE00000EEEEEEEEEEFF FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEE222E2222222222EE00000EEEE EEEEEEEEEEEEEEE00000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = DBGridadressDblClick end object SBSelect: TSpeedButton Left = 175 Top = 28 Width = 77 Height = 24 Hint = 'Select all email for mailing list' Caption = 'Select all' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333000003333333333F777773FF333333003333300 33333337733333773F33330333333333033333733FFFFFFF73F3303300000003 303337F37777777337F3303330CCC0333033373337777733373F0333330C0333 33037F33337773FFF37F03333330300033037F3FFFF73777FF7F0300000307B7 03037F77777F77777F7F030999030BBB03037F77777F77777F7F0309990307B7 03037377777F7777737330099903300030333777777F377737F3300000033333 3033377777733333373333033333333303333373FF33333F7333333003333300 3333333773FFFF77333333333000003333333333377777333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SBSelectClick end object SBSelone: TSpeedButton Left = 91 Top = 28 Width = 84 Height = 24 Hint = 'Select email address for mailing list' Caption = 'Select Email' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SBSeloneClick end object SpeedButton4: TSpeedButton Left = 256 Top = 28 Width = 80 Height = 24 Caption = 'Filter' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF33333333333330003FF3FFFFF3333777003000003333 300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333 330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000 333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000 339977FF777777773377000BFB03333333337773FF733333333F333000333333 3300333777333333337733333333333333003333333333333377333333333333 333333333333333333FF33333333333330003333333333333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object Label9: TLabel Left = 9 Top = 6 Width = 95 Height = 13 Caption = 'Mailing List Name ->' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SBMessage: TSpeedButton Left = 336 Top = 28 Width = 78 Height = 24 Hint = 'Messages for selected addresses' Caption = 'Messages' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF 77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0FFFFF FFF07F333F7F3FFFF3370FFF700F0000FFF07F3F777F777733370F707F0FFFFF FFF07F77337F3FFFFFF7007EEE0F000000F077FFFF7F777777370777770FFFFF FFF07777777F3FFFFFF7307EEE0F000000F03773FF7F7777773733707F0FFFFF FFF03337737F3FFF33373333700F000FFFF03333377F77733FF73333330FFFFF 00003333337F3FF377773333330F00FF0F033333337F77337F733333330FFFFF 00333333337FFFFF773333333300000003333333337777777333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Visible = False OnClick = SBMessageClick end object SBaddList: TSpeedButton Left = 256 Top = 52 Width = 242 Height = 25 Caption = 'Add Selected Addresses to Mailing List' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550 3055577777555557F7F555000555555999555577755555577755} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Visible = False OnClick = SBaddListClick end object SBdeleteFromList: TSpeedButton Left = 3 Top = 52 Width = 249 Height = 25 Caption = 'Delete Selected Addresses from Mailing List' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003 33333333777777733333333330CCC03333333333F7777733F3333330330C0330 33333337337773373333333333303333333333F33337333333F3303333333333 3033373333333333373333333333333333333F3333333333333F033333333333 3303733333333333337333333333333333333F3333333333333F033333333333 3303733333333333FF7333333333333000333FFFFF33333777FF000003333307 B70377777F333377777F09990333330BBB0377777F333377777F099903333307 B70377777F3333777773099903333330003377777F3333377733000003333330 3333777773F3F3F7333333333030303333333333373737333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Visible = False OnClick = SBdeleteFromListClick end object SBdellist: TSpeedButton Left = 498 Top = 52 Width = 127 Height = 25 Caption = 'Delete List' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F3333333333000003333333333377777333333} NumGlyphs = 2 ParentFont = False Visible = False OnClick = SBdellistClick end object DBNavigator1: TDBNavigator Left = 416 Top = 28 Width = 125 Height = 24 DataSource = DSadressUP VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] Flat = True ParentShowHint = False ShowHint = True TabOrder = 0 BeforeAction = DBNavigator1BeforeAction end object DBNavigator2: TDBNavigator Left = 541 Top = 28 Width = 84 Height = 24 DataSource = DSadress VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast] Flat = True TabOrder = 1 end object NamegrouptLB: TComboBox Left = 107 Top = 2 Width = 516 Height = 21 Style = csDropDownList Color = clWhite Ctl3D = False DropDownCount = 30 ItemHeight = 13 Items.Strings = ( 'Last Name' 'First Name' 'Address') ParentCtl3D = False TabOrder = 2 OnChange = NamegrouptLBChange end end object Panel3: TPanel Left = 0 Top = 113 Width = 630 Height = 284 Align = alClient BevelOuter = bvNone TabOrder = 2 object Splitter1: TSplitter Left = 627 Top = 0 Width = 3 Height = 284 Cursor = crHSplit Align = alRight end object Label1: TLabel Left = 8 Top = 104 Width = 61 Height = 13 Caption = 'Last Name' end object Label3: TLabel Left = 8 Top = 131 Width = 52 Height = 13 Caption = 'Company' end object Label4: TLabel Left = 10 Top = 26 Width = 35 Height = 13 Caption = 'E.mail' end object Label2: TLabel Left = 8 Top = 77 Width = 61 Height = 13 Caption = 'First Name' end object Image1: TImage Left = 192 Top = 288 Width = 105 Height = 105 Picture.Data = {} Visible = False end object Label5: TLabel Left = 8 Top = 158 Width = 65 Height = 13 Caption = 'Description' end object Label13: TLabel Left = 10 Top = 50 Width = 26 Height = 13 Caption = 'URL' end object DBCheckBox2: TDBCheckBox Left = 88 Top = 208 Width = 600 Height = 17 Caption = 'The address is blocked as it is included in the stop list databa' + 'se' DataField = 'StopList' DataSource = DSadressUP ReadOnly = True TabOrder = 10 ValueChecked = 'True;Yes;' ValueUnchecked = 'False;No;' end object DBCheckBox1: TDBCheckBox Left = 88 Top = 184 Width = 300 Height = 17 Caption = 'To block the address' DataField = 'BlockAdress' DataSource = DSadressUP TabOrder = 9 ValueChecked = 'True;Yes;' ValueUnchecked = 'False;No;' end object DBEdit6: TDBEdit Left = 86 Top = 50 Width = 361 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'URL' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 8 end object DBEdit5: TDBEdit Left = 86 Top = 154 Width = 443 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'Description' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object DBEdit4: TDBEdit Left = 86 Top = 24 Width = 289 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'HomeEMail' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object DBEdit3: TDBEdit Left = 86 Top = 128 Width = 361 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'Company' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object DBEdit2: TDBEdit Left = 86 Top = 101 Width = 361 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'LastName' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object DBEdit1: TDBEdit Left = 86 Top = 75 Width = 361 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'FirstName' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object DBRadioGroup1: TDBRadioGroup Left = 382 Top = 17 Width = 223 Height = 30 Columns = 3 DataField = 'TypeAdress' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Items.Strings = ( 'e.mail ' 'cc ' 'bcc') ParentFont = False TabOrder = 1 Values.Strings = ( '0' '1' '2') end object DBGridadress: TDBGrid Left = 0 Top = 0 Width = 627 Height = 284 Align = alClient BorderStyle = bsNone DataSource = DSadress Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 6 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDrawDataCell = DBGridadressDrawDataCell OnDblClick = DBGridadressDblClick OnKeyDown = DBGridadressKeyDown end object ToList: TListBox Tag = 1 Left = 297 Top = 52 Width = 24 Height = 155 ItemHeight = 13 Style = lbOwnerDrawFixed TabOrder = 7 Visible = False end end object PanelGroup: TPanel Left = 0 Top = 113 Width = 630 Height = 284 Align = alClient BevelOuter = bvLowered TabOrder = 3 Visible = False object Panel5: TPanel Left = 1 Top = 1 Width = 628 Height = 117 Align = alTop TabOrder = 0 object DBText1: TDBText Left = 117 Top = 33 Width = 303 Height = 19 Color = clWhite DataField = 'NameGroup' DataSource = DSGroup Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label7: TLabel Left = 7 Top = 34 Width = 101 Height = 13 Caption = 'Mailing List Name' end object Label8: TLabel Left = 7 Top = 55 Width = 44 Height = 13 Caption = 'Subject' end object Label10: TLabel Left = 7 Top = 75 Width = 52 Height = 13 Caption = 'Comment' end object Label11: TLabel Left = 7 Top = 95 Width = 39 Height = 13 Caption = 'Note 1' end object Label12: TLabel Left = 283 Top = 95 Width = 39 Height = 13 Caption = 'Note 2' end object SpeedButton2: TSpeedButton Left = 4 Top = 4 Width = 128 Height = 24 Caption = 'Select mailing list' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 261 Top = 4 Width = 128 Height = 24 Caption = 'Cancel' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 33333337777FF377FF3333993370739993333377FF373F377FF3399993000339 993337777F777F3377F3393999707333993337F77737333337FF993399933333 399377F3777FF333377F993339903333399377F33737FF33377F993333707333 399377F333377FF3377F993333101933399377F333777FFF377F993333000993 399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399 99333773FF777F777733339993707339933333773FF7FFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 ParentFont = False Spacing = 3 OnClick = SpeedButton3Click end object DBText2: TDBText Left = 117 Top = 53 Width = 303 Height = 19 Color = clWhite DataField = 'Subject' DataSource = DSGroup Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object DBText3: TDBText Left = 117 Top = 73 Width = 303 Height = 19 Color = clWhite DataField = 'Comment' DataSource = DSGroup Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object DBText4: TDBText Left = 60 Top = 93 Width = 177 Height = 19 Color = clWhite DataField = 'Note1' DataSource = DSGroup Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object DBText5: TDBText Left = 332 Top = 93 Width = 285 Height = 19 Color = clWhite DataField = 'Note2' DataSource = DSGroup Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object SpeedButton6: TSpeedButton Left = 132 Top = 4 Width = 128 Height = 24 Caption = 'Add new mailing list' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8 B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8 B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB 0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000 55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05 55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05 55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555 5555575FFF755555555557000075555555555577775555555555} NumGlyphs = 2 ParentFont = False OnClick = SpeedButton6Click end end object DBGridGroup: TDBGrid Left = 1 Top = 118 Width = 628 Height = 165 Align = alClient BorderStyle = bsNone Color = clWhite Ctl3D = False DataSource = DSGroup Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentCtl3D = False ParentFont = False TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object Tadress: TTable Filtered = True OnCalcFields = TadressCalcFields DatabaseName = 'Vistamail' IndexFieldNames = 'PosA' TableName = 'ADRESS5.DB' TableType = ttParadox Left = 462 Top = 244 object TadressVybor: TBooleanField DisplayLabel = 'Select' DisplayWidth = 6 FieldName = 'Vybor' end object TadresstypeadresStr: TStringField DisplayLabel = '-' FieldName = 'typeadresStr' Visible = False Size = 5 Calculated = True end object TadressHomeEMail: TStringField DisplayLabel = 'E.mail' DisplayWidth = 20 FieldName = 'HomeEMail' Size = 50 end object TadressFirstName: TStringField DisplayLabel = 'First Name' DisplayWidth = 20 FieldName = 'FirstName' Size = 40 end object TadressLastName: TStringField DisplayLabel = 'Last Name' DisplayWidth = 20 FieldName = 'LastName' Size = 40 end object TadressURL: TStringField FieldName = 'URL' Size = 255 end object TadressCompany: TStringField DisplayWidth = 30 FieldName = 'Company' Size = 50 end object TadressDescription: TStringField DisplayLabel = 'Note' FieldName = 'Description' Size = 60 end object TadressTypeAdress: TSmallintField FieldName = 'TypeAdress' Visible = False end object TadressLN: TStringField FieldName = 'LN' Visible = False Size = 1 end object TadressFN: TStringField FieldName = 'FN' Visible = False Size = 1 end object TadressPosA: TIntegerField FieldName = 'PosA' Visible = False end object TadressFComp: TStringField FieldName = 'FComp' Visible = False Size = 1 end object TadressBlockAdress: TBooleanField FieldName = 'BlockAdress' Visible = False end object TadressStopList: TBooleanField FieldName = 'StopList' Visible = False end end object DSadress: TDataSource DataSet = Tadress Left = 502 Top = 252 end object QadressUp: TQuery DatabaseName = 'Vistamail' Left = 514 Top = 292 end object TGroup: TTable DatabaseName = 'VistaMail' TableName = 'GroupNam.db' TableType = ttParadox Left = 376 Top = 141 object TGroupNameGroup: TStringField DisplayLabel = 'Name Group' DisplayWidth = 30 FieldName = 'NameGroup' Size = 50 end object TGroupSubject: TStringField DisplayWidth = 30 FieldName = 'Subject' Size = 100 end object TGroupComment: TStringField FieldName = 'Comment' Visible = False Size = 150 end object TGroupPosG: TAutoIncField FieldName = 'PosG' Visible = False end object TGroupNote1: TStringField FieldName = 'Note1' Size = 50 end object TGroupNote2: TStringField FieldName = 'Note2' Size = 50 end end object TListGroup: TTable DatabaseName = 'VistaMail' TableName = 'ListGr.db' TableType = ttParadox Left = 448 Top = 129 object TListGroupPosG: TIntegerField FieldName = 'PosG' end object TListGroupPosA: TIntegerField FieldName = 'PosA' end end object Tdbadrmes: TTable DatabaseName = 'VistaMail' TableName = 'dbadrmes.DB' TableType = ttParadox Left = 516 Top = 155 end object DSadressUP: TDataSource DataSet = QueryUp Left = 580 Top = 291 end object QueryUp: TQuery AfterInsert = QueryUpAfterInsert BeforeEdit = QueryUpBeforeEdit BeforePost = QueryUpBeforePost AfterDelete = QueryUpAfterDelete DatabaseName = 'VistaMail' RequestLive = True SQL.Strings = ( 'select * from adress5 where PosA=:a0') Params.Data = {0100010002613000030400000000000000} Left = 560 Top = 247 end object Qadress: TQuery BeforeOpen = QadressBeforeOpen AfterOpen = QadressAfterOpen DatabaseName = 'Vistamail' SQL.Strings = ( 'select * from adress5') Left = 442 Top = 298 object QadressVybor: TBooleanField DisplayLabel = 'Type' FieldName = 'Vybor' Origin = '"adress5.DB".Vybor' end object QadressHomeEMail: TStringField Tag = 1 DisplayLabel = 'E.mail' DisplayWidth = 20 FieldName = 'HomeEMail' Origin = '"adress5.DB".HomeEMail' Size = 50 end object QadressFirstName: TStringField Tag = 1 DisplayLabel = 'First Name' DisplayWidth = 20 FieldName = 'FirstName' Origin = '"adress5.DB".FirstName' Size = 40 end object QadressLastName: TStringField Tag = 1 DisplayLabel = 'Last Name' DisplayWidth = 20 FieldName = 'LastName' Origin = '"adress5.DB".LastName' Size = 40 end object QadressURL: TStringField Tag = 1 DisplayWidth = 25 FieldName = 'URL' Origin = '"adress5.DB".PosA' Size = 255 end object QadressCompany: TStringField Tag = 1 DisplayWidth = 35 FieldName = 'Company' Origin = '"adress5.DB".Company' Size = 50 end object QadressDescription: TStringField Tag = 1 DisplayLabel = 'Note' DisplayWidth = 30 FieldName = 'Description' Origin = '"adress5.DB".Description' Size = 60 end object QadressTypeAdress: TSmallintField DisplayLabel = 'TypeAddress' FieldName = 'TypeAdress' Origin = '"adress5.DB".TypeAdress' Visible = False end object QadressLN: TStringField FieldName = 'LN' Origin = '"adress5.DB".LN' Visible = False Size = 1 end object QadressPosA: TIntegerField FieldName = 'PosA' Origin = '"adress5.DB".PosA' Visible = False end object QadressFN: TStringField FieldName = 'FN' Origin = '"adress5.DB".FN' Visible = False Size = 1 end object QadressFComp: TStringField FieldName = 'FComp' Origin = '"adress5.DB".FComp' Visible = False Size = 1 end object QadressBlockAdress: TBooleanField DisplayLabel = 'Block adress' FieldName = 'BlockAdress' Origin = '"adress5.DB".LastName' DisplayValues = 'Yes;No' end object QadressStopList: TBooleanField FieldName = 'StopList' Origin = '"adress5.DB".PosA' Visible = False end end object DSGroup: TDataSource DataSet = TGroup Left = 386 Top = 286 end end